home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / listing 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  47 lines
  1. 100 rem schreibschutz setzen / loeschen
  2. 101 rem durch aenderung des format-
  3. 102 rem kennzeichens in der bam !!!
  4. 103 rem funktionsweise setzen :
  5. 104 rem formatkennzeichen wird auf
  6. 105 rem beliebigen wert ausser 'a'
  7. 106 rem gesetzt. ab sofort koennen
  8. 107 rem keine schreibvorgaenge ausser
  9. 108 rem formatieren durchgefuehrt
  10. 109 rem werden. also vorsicht !
  11. 110 rem funktionsweise freigeben
  12. 111 rem die floppy speichert das
  13. 112 rem formatkennzeichen der eingel.
  14. 113 rem diskette in der speicherstelle
  15. 114 rem $0101 zwischen. wird dies
  16. 115 rem vor dem schreibvorgang auf
  17. 116 rem 'a' zurueckgesetzt, laesst
  18. 117 rem sich die floppy 'ueberlisten'
  19. 118 rem das 'a' wird nun in die bam
  20. 119 rem geschrieben
  21. 120 :
  22. 130 print"wollen sie die eingel. diskette"
  23. 140 input"schuetzen oder freigeben";aa$
  24. 150 if aa$="s" then 200
  25. 160 if aa$="f" then 300
  26. 170 print:run
  27. 180 :
  28. 190 :
  29. 200 open 15,8,15,"i":open8,8,8,"#"
  30. 210 print#15,"u1 8 0 18 0"
  31. 220 print#15,"b-p 8 2"
  32. 230 print#8,"x";
  33. 240 print#15,"u2 8 0 18 0"
  34. 250 print#15,"i"
  35. 260 close8:close15:print:run
  36. 270 :
  37. 280 :
  38. 290 :
  39. 300 open 15,8,15,"i":open8,8,8,"#"
  40. 310 print#15,"u1 8 0 18 0"
  41. 320 print#15,"b-p 8 2"
  42. 330 print#15,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  43. 340 print#8,"a";
  44. 350 print#15,"u2 8 0 18 0"
  45. 360 print#15,"i"
  46. 370 close8:close15:print:run
  47.